
library(pheatmap)
library()


x0=read.csv(".\\data\\microarray.csv",check.names = F)
x1=x0[sample(1:nrow(x0),100),]


####hierachical clustering
plot(hclust(dist(t(x1)), "ave"), hang = -1)


####heatmap
#pheatmap(x1,main="Gene Expression")


####PCA (principal component analysis)
#x.pr<-princomp(x1,cor=T)
#biplot(x.pr)
